home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fromdl / fromdll.bas < prev    next >
BASIC Source File  |  1995-01-19  |  1KB  |  24 lines
  1. Option Explicit
  2.  
  3. ' what I need to copy bitmap from dll resource to picturebox
  4.  
  5. Declare Function LoadLibrary Lib "Kernel" (ByVal lpLibFileName As String) As Integer
  6. Declare Sub FreeLibrary Lib "Kernel" (ByVal hLibModule As Integer)
  7.  
  8. Declare Function LoadString Lib "User" (ByVal hInstance As Integer, ByVal wID As Integer, ByVal lpBuffer As Any, ByVal nBufferMax As Integer) As Integer
  9.  
  10. Declare Function LoadBitmap Lib "User" (ByVal hInstance As Integer, ByVal lpBitmapName As Any) As Integer
  11. Declare Function CreateCompatibleDC Lib "GDI" (ByVal hDC As Integer) As Integer
  12. Declare Function SelectObject Lib "GDI" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer
  13. Declare Function BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long) As Integer
  14. Declare Function DeleteDC Lib "GDI" (ByVal hDC As Integer) As Integer
  15. Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer
  16.  
  17. ' In the test.dll
  18. Declare Function SayHi Lib "TEST.DLL" () As Integer
  19.  
  20. Global Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
  21.  
  22. Global DLLID%  ' global handle to the DLL
  23.  
  24.